home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / logbook.prg < prev    next >
Text File  |  1990-06-25  |  3KB  |  129 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LOGBOOK.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 06/25/90     12:01
  9. *:
  10. *:          Calls: LOGFUNCT.PRG
  11. *:               : LOGAWARD.PRG
  12. *:               : LOGMISCF.PRG
  13. *:
  14. *:   Memory Files: LOGBOOK.MEM
  15. *:
  16. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  17. *:*********************************************************************
  18.  
  19. SET COLOR TO GR+/B,W+/RB,BG+
  20. * Thanks N4FG for color choice
  21. SET HEADING OFF
  22. SET SAFETY OFF
  23.  
  24. PUBLIC logndx, logbook, waz, was, award, dxcc, oblast, callsign, pf, gmt
  25.  
  26. SET TALK OFF
  27. CLEAR ALL
  28. STORE 'LOG       ' TO logndx
  29. STORE 'LOG       ' TO logbook
  30. STORE 'WAZ       ' TO waz
  31. STORE 'WAS       ' TO was
  32. STORE 'AWARD     ' TO award
  33. STORE 'DXCC      ' TO dxcc
  34. STORE 'OBLAST    ' TO oblast
  35. STORE 'G3ZCZ     ' TO callsign
  36. STORE 0   TO gmt
  37. STORE 'LOGBOOK' TO susie
  38. IF FILE(susie+'.MEM')
  39.    RESTORE FROM logbook
  40. ELSE
  41.    CLEAR
  42.    @ 12,4 SAY  'INITALISATION SEQUENCE '
  43.    ?
  44.    ACCEPT 'What is your callsign ? ' TO callsign
  45.    ACCEPT 'What is your offset to UTC (HH) ? ' TO cgmt
  46.    STORE VAL(cgmt) TO gmt
  47. ENDIF
  48. RELEASE susie
  49.  
  50. STORE ' ' TO task
  51. DO WHILE  task <> '*'
  52.    CLEAR
  53.    SET COLOR TO W+/R,W+/RB,BG+
  54.    * DISPLAY MENU
  55.    @ 2,15 SAY      'LOGBOOK by G3ZCZ VERSION 3.52'
  56.    @ 4,10 SAY 'COPYRIGHT (c) 1986, 1987, 1988, 1989, 1990'
  57.    SET COLOR TO GR+/B,W+/RB,BG+
  58.  
  59.    @ 6,10 SAY 'Default LOG database is'
  60.    SET COLOR TO W+/R,W+/RB,BG+
  61.    @ 6,35 SAY TRIM(logbook)
  62.    SET COLOR TO GR+/B,W+/RB,BG+
  63.  
  64.    @ 8,10 SAY  'LOG FUNCTIONS                    L'
  65.    @ 9,10 SAY  'AWARDS                           A'
  66.    @ 10,10 SAY 'MISCELLANEOUS FUNCTIONS          M'
  67.    @ 11,10 SAY 'DISPLAY FILES ON DISK DRIVE      F'
  68.    @ 12,10 SAY 'POSITION QSL LABELS ON PRINTER   P'
  69.    @ 16,10 SAY 'RETURN TO DOS                    Q'
  70.    @ 18,10 SAY 'QUIT LOG PACKAGE                 *'
  71.    @ 20,1 SAY 'QRU'
  72.    @ 20,10 GET task
  73.    READ
  74.    task = UPPER(task)
  75.    
  76.    DO CASE
  77.    CASE task = 'P'
  78.       * positions labels for QSL's
  79.       ACCEPT 'Is Printer Ready ? ' TO oktorun
  80.       oktorun = 'N'
  81.       DO WHILE oktorun <> 'Y'
  82.          SET CONSOLE OFF
  83.          SET PRINT ON
  84.          ? 'TO RADIO  '+CHR(14)+'G3ZCZ/W3'+CHR(20)
  85.          ? '* * * *   * *'
  86.          ? '*** * *   *     *      * '
  87.          ? '*** *** * *     *** * ***'
  88.          ? 'LAST LINE'
  89.          ?
  90.          SET PRINT OFF
  91.          SET CONSOLE ON
  92.          ACCEPT 'Are labels positioned properly (Y/N) ? ' TO oktorun
  93.          oktorun = SUBSTR(oktorun,1,1)
  94.       ENDDO
  95.       RELEASE oktorun
  96.       
  97.    CASE task = 'F'
  98.       CLEAR
  99.       ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  100.       diskdrive = SUBSTR(diskdrive,1,1)
  101.       STORE diskdrive + ':' TO diskdrive
  102.       DISPLAY Files ON &diskdrive
  103.       RELEASE diskdrive
  104.       WAIT
  105.       
  106.    CASE task = 'L'
  107.       DO logfunct
  108.       
  109.    CASE task = 'A'
  110.       DO logaward
  111.  
  112.    CASE task = 'M'
  113.       DO logmiscf
  114.       
  115.    CASE task = 'Q'
  116.       SAVE TO logbook
  117.       QUIT
  118.    ENDCASE
  119.    
  120. ENDDO
  121. RELEASE task,cgmt
  122. SAVE TO logbook
  123. USE
  124. CLEAR
  125. @ 12,12 SAY 'Enter QUIT <CR> to return to DOS'
  126. @ 20,40 SAY '73 de G3ZCZ'
  127. RETURN
  128. *: EOF: LOGBOOK.PRG
  129. * CHANGE IN LOGQSL1 TO ALLOW QSL TO FILE TO WORK